home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / games / nhak_src.zip / VMSMISC.C < prev    next >
C/C++ Source or Header  |  1993-03-16  |  408b  |  23 lines
  1. /*    SCCS Id: @(#)vmsmisc.c    3.0    90/22/02
  2. /* NetHack may be freely redistributed.  See license for details. */
  3.  
  4. #include <ssdef.h>
  5. #include <stsdef.h>
  6.  
  7. void
  8. vms_exit(status)
  9. int status;
  10. {
  11.     exit(status ? (SS$_ABORT | STS$M_INHIB_MSG) : SS$_NORMAL);
  12. }
  13.  
  14. void
  15. vms_abort()
  16. {
  17.     (void) LIB$SIGNAL(SS$_DEBUG);
  18. }
  19.  
  20. #ifdef VERYOLD_VMS
  21. #include "oldcrtl.c"        /* "[-.vms]oldcrtl.c" */
  22. #endif
  23.